<init>
subevent(mapinit,);
#evflag(warpable,=,0);

#evflag(enzyj,==,2); if(nowres);
#mc(6,enegr,+=,(xiRCc(2),xiRKh(2),xiRÂ(2),xiR]EN(2),xiRCc,xiRKh,xiRÂ,xiR]EN,xiRCc,xiRKh,xiRÂ,xiR]EN,i|Kp(4),KpS[(4),S[VW(4),i|VW(4)));
#mc(7,enegr,+=,(xiRCc(2),xiRKh(2),xiRÂ(2),xiR]EN(2),xiRCc,xiRKh,xiRÂ,xiR]EN,xiRCc,xiRKh,xiRÂ,xiR]EN,i|Kp(4),KpS[(4),S[VW(4),i|VW(4)));
#mc(8,enegr,+=,(xiRCc(2),xiRKh(2),xiRÂ(2),xiR]EN(2),xiRCc,xiRKh,xiRÂ,xiR]EN,xiRCc,xiRKh,xiRÂ,xiR]EN,i|Kp(4),KpS[(4),S[VW(4),i|VW(4)));
#mc(9,enegr,+=,(xiRCc(2),xiRKh(2),xiRÂ(2),xiR]EN(2),xiRCc,xiRKh,xiRÂ,xiR]EN,xiRCc,xiRKh,xiRÂ,xiR]EN,i|Kp(4),KpS[(4),S[VW(4),i|VW(4)));
#endif;


#{ao
<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,move,36,-25,center); fc(*actor,dir,=,d); fc(*actor,float,=,0); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#{aPe
<to1>
#fade(out,(type=fade,color=000000,wait=16)); fc(move,*actor,2,0,6,0); changemap(ip[{a); fade(in,(type=fade,color=000000,wait=16));
#fade(out,(type=fade,color=000000,wait=16)); changemap(ip[{a); fade(in,(type=fade,color=000000,wait=16));
fade(out,(type=blind(1,1),color=000000,wait=16)); fc(*actor,float,=,-20); changemap(ip[{a);
fcslc(c2); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
fcslc(c3); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
fade(in,(type=blind(1,1),color=000000,wait=16));


#{aoAnm^nee
<brsw>
#sound(attack1);
sound(elec); flash(ffff80,128,8); wait(4);
fc(c6,apr,==,1); if(nowres); fc(c6,apr,=,0); fc(c7,apr,=,1); else; fc(c6,apr,=,1); fc(c7,apr,=,0); endif;


<valanorpa2>
while;
fc(*actor,y,<,fc(*target,y)+1); if(nowres); fc(*actor,walk,0,8,0,1,d); return; next; endif;
fc(*actor,y,>,fc(*target,y)+1); if(nowres); fc(*actor,walk,0,8,0,-1,u); return; next; endif;
fc(*actor,x,<,fc(*target,x)); if(nowres); fc(*actor,walk,0,8,1,0,r); return; next; endif;
fc(*actor,x,>,fc(*target,x)); if(nowres); fc(*actor,walk,0,8,-1,0,l); return; next; endif;
wend;
fc(*actor,walk,0,8,0,0,u); fc(*target,walk,0,8,0,0,d);

#fc(dir,*actor,==,0); if(nowres); fc(walk,*actor,0,8,0,1,2); return; fc(walk,*actor,0,8,1,0,0); return;
#else; fc(dir,*actor,==,1); if(nowres); fc(walk,*actor,0,8,0,1,2); return; fc(walk,*actor,0,8,-1,0,1); return;
#else; fc(dir,*actor,==,2); if(nowres); fc(walk,*actor,0,8,1,0,0); return; fc(walk,*actor,0,8,0,2,2); fc(walk,c2,0,8,0,0,0); return; fc(walk,*actor,0,8,-1,0,1); return;
#else; endif; endif; endif; fc(walk,*actor,0,8,0,0,3); fc(walk,c2,0,8,0,0,2);

fade(out,(type=mosaic,wait=16)); rasop(4,ffffff); fade(in,(type=mosaic,wait=16));
text(1,(face=+evfch,swait=-1),om[puip[͖v);
#text(1,(face=+evfch,swait=-1),om[pu䂪̏pv);
fade(out,(type=mosaic,wait=16)); rasop(0); fade(in,(type=mosaic,wait=16));
fc(*target:1,apr,=,1); fc(*target:2,apr,=,1); fc(*target:1,move,*0,*0,); fc(*target:2,move,*0,*0,);
fc(*target:1,walk,0,8,2,0,r);  fc(*target:2,walk,0,8,-2,0,l); return;
fc(*target:1,walk,0,8,0,1,d);  fc(*target:2,walk,0,8,0,1,d); return;
fc(*target:1,walk,0,8,-1,0,l); fc(*target:2,walk,0,8,1,0,r); return;
fade(out,(type=blind(9,9),color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=om,back=sea-sc,bgm=boss:0,fade=(type=zoom),stm=0,btm=ne,downefc=down5)); fade(in2,);
#blind99,,

evflag(*selected,==,1); if(nowres);
text(1,(face=+evfch,swait=-1),om[pu΂ȁII%s5@%s0قȁII%s5@%s0킯ȁ[[[IIIIv);
#sound(attack2); fc(apr,3,=,0); wait(16); sound(attack2); fc(apr,4,=,0); wait(16); sound(attack2); fc(apr,2,=,0);
#fc(*target:1,apr,=,0); feffect(bomb,,*target:1,*actor,0); fc(*target:2,apr,=,0); feffect(bomb,,*target:2,*actor,0); fc(*target,apr,=,0); feffect(bomb,,*target,*actor,0);
feffect(bomb,,*target:1,*actor,0); fc(*target:1,apr,=,0); wait(12); feffect(bomb,,*target:2,*actor,0); fc(*target:2,apr,=,0); wait(12); feffect(bomb,,*target,*actor,0); fc(*target,apr,=,0); wait(12);
fc(*target,apr,=,1); fc(*target:1,apr,=,1); fc(*target:2,apr,=,1);
feffect(bomb,,(*target,*target:1,*target:2),*actor,0);
fc(*target,apr,=,0); fc(*target:1,apr,=,0); fc(*target:2,apr,=,0);
waiteffect;
#fc(apr,c3,=,0); fc(apr,c4,=,0); fc(apr,c2,=,0); feffect(bomb,,3,c2,c3,c4,*actor);
#fc(apr,c3,=,0); fc(apr,c4,=,0); feffect(bomb,,2,c3,c4,*actor); fc(apr,c2,=,0); feffect(bomb,,1,c2,*actor);
subevent(recover2,);
evflagsw(pr_dfvala2,=,1);
text(1,face=uam,om[p|I\nSI\n);
end; endif;


<chair>
fc(c5,apr,==,0); if(nowres);
fc(c5,apr,=,1); fc(c5,ani,=,0);
sound(select); flash(80c0ff,128,8); wait(4);
endif;
#subevent(recover,);


<barrier>
text(1,face=uam,oÂ悤Bɂĉ̎d|ŉłB);
#text(1,face=uam,ւۂȃoAA܊pd|Ă݂悤);


<box_deckbr>
fc(*target,ans,=,16); wait(32); fc(*target,ans,=,0);
item(check:eq,fbLuV,1); if(nowres);
#֎qɐG꒼œ肵ꍇz肵li
#label(15);
party(,gold,+=,1000000);
sound(select); text(0,w%o[*gold]S~xɓꂽI);
fc(*target,apr,=,0);
else;
item(get,fbLuV,1);
sound(select); text(0,w%it[*fbLuV].nmicxɓꂽI);
#text(1,,w%it[*fbLuV].nmicx́Aw%it[*Eoo[].nmicxSłɂċA҂ƕĂ܂̂Œӂ悤IiȊOłȂ畴܂j);
fc(*target,apr,=,0);
#else; fc(*target,ans,=,-16); wait(32); fc(*target,ans,=,0);
endif;


<brd_chdmpt>
text(1,face=+evfch,ł́w%cond[*].nmicx̌ʂ͖Bw%sk[*].nmicx́weL[Rx܂́wrxł̂ŁA퓬ʓ|Lǂǂ񗘗p悤I);
#tɖF܂͌ʂB


<brd_seacav>
text(1,face=+evfch,ɕтɔ閧݂BȂ̔ꂵꏊɒH蒅@ƂȂ邾낤B);
#text(1,face=+evfch,ɕтAƂƂƗގ̍\LB);
#text(1,face=+evfch,ɕтA閧݂̓B);
#text(1,face=+evfch,ɕтɔ閧݂B);
#text(1,face=+evfch,ɕтAƂƂƗގ̍\LBĖɑ́A}ΉׂB);
#text(1,face=+evfch,̍ޗ΁AK̍\voׂBĖɑ́A}ΉׂB);
#text(1,face=+evfch,т̂̔閧΁ẢƂ̍\voׂBĖɑ́A}ΉׂB);
#text(1,face=+evfch,Kɓ鎞AǎiGjooȂ肷B̏ɂ߂ׂB\nċ}ΉׂB);
#text(1,face=+evfch,ɕꂽA͕Е̂݁B}Ń_ȂAׂB);
#̋{aɓ鎞ɂĺwd|xAꎞ̐퓬΂AȂŏK֓ꂽ肷邪A͖̖낤B
zukan(map:Ĉق猊,==,1); if(nowres); text(1,face=uam,w%map[*Ĉق猊].nmicxɓ邽߂̎|肾悤B); endif;
#zukan(item:[Č,==,1); if(nowres); text(1,face=uam,w%it[*[Č].nmicx̓̎d̂悤B); endif;
#item(check:aleq|alpt|bank,[Č,1); or; item(check:aleq|alpt|bank,ɒ,1); if(nowres); text(1,face=uam,w%it[*[Č].nmicx̓̎d̂悤B); endif;
#item(check:aleq|alpt|bank,[Č,1); or; item(check:aleq|alpt|bank,ɒ,1); if(nowres); text(1,face=uam,w%it[*[Č].nmicx肷邽߂̏񂾂悤B); endif;
#item(check:aleq|alpt|bank,[Č,1); or; item(check:aleq|alpt|bank,ɒ,1); if(nowres); text(0,w%it[*[Č].nmicx̓͊ɉĂB); endif;
#item(check:aleq|alpt|bank,[Č,1); or; item(check:aleq|alpt|bank,ɒ,1); if(nowres); text(1,,̓͊ɉĂBɎɓꂽw[ČxɂĂ̏̂悤B); endif;
#item(check:aleq|alpt|bank,ɒ,1); if(nowres); text(0,ɒ͊Ɏ蒆Ɏ߂ĂB); end; endif;